home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 September / Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64 / Exploded Charac. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  511b  |  17 lines
  1. 10 poke 52,48: poke 56,48: clr
  2. 15 b$="        "
  3. 16 m$=chr$(147):h$=chr$(19):r$=chr$(18):o$=chr$(146):d$=chr$(17)
  4. 20 print ""m$d$d$d$d$" "r$b$"  "
  5. 25 for j=1 to 8: print" "r$" "o$b$r$" ": nextj: print" "r$b$"  "
  6. 30 print h$d$b$b$: print b$b$
  7. 35 print h$d$;: input " character ";c$:ch=peek(1077)*8+53248
  8. 40 poke 56334,peek(56334)and254:poke1,peek(1)and251
  9. 45 for i=0 to 7:a(i)=peek(ch+i): nexti
  10. 50 poke 1,peek(1)or4
  11. 55 poke56334,peek(56334)or1
  12. 60 print h$d$d$d$d$: for x=0 to 7: x$=""
  13. 65 for y=7 to 0 step -1
  14. 70 if a(x)>=2^y then x$=x$+chr$(113): a(x)=a(x)-2^y:goto 80
  15. 75 x$=x$+" "
  16. 80 next y: print chr$(158)tab(2)x$: nextx: goto 30
  17.